function TableData=SubFun_KeyResults(IRF)

    List_Shock      =   {'Eps_Eta_M_dom','Eps_Eta_M_ext','Eps_Eta_Y_H'};
    for ii_Shock=1:length(List_Shock)
        SH              =   List_Shock{ii_Shock};
        [~,Ind_MaxC]    =   max(abs(IRF.(SH).C));
        Ind_MaxC        =   1;
        TempFun         =   @(irf)irf(Ind_MaxC);
        TempResult      =   [[TempFun(IRF.(SH).C)*100;... Aggregate consumption
                              TempFun(IRF.(SH).C_byFI_dom)*100;...
                              TempFun(IRF.(SH).C_byFI_ext)*100; ...
                              TempFun(IRF.(SH).DevUIP)*100*4 ...
                             ];...
                             [TempFun(IRF.(SH).ConsDist.Disp(1,:));...
                              TempFun(IRF.(SH).C_byRI_N-IRF.(SH).C_byRI_H);...
                              TempFun(IRF.(SH).C_byFI_dom-IRF.(SH).C_byFI_ext);...
                              TempFun(IRF.(SH).C_byNA_poor-IRF.(SH).C_byNA_rich)] ...
                             /abs(TempFun(IRF.(SH).C)); ...
                             [TempFun(IRF.(SH).EffReturn_Pos)*100*4] ...
                            ];
        if ii_Shock==1
            TableData   =   TempResult;
        else
            TableData   =   [TableData,TempResult];
        end
    end
end